CxCvsEditor Methods

The CxCvsEditor object contains the following methods:

Connect

The Connect method connects the object to a service.

Syntax

Connect(SiteService As String)

Parameters

Remarks

Returns 0 if successful and a non-zero value if the connection failed.

Example

The following example connects the Client object to the CYGDEMO.<SVC> on domain 5410:

1
2
3
4
5
6
7
Sub

    Dim CvsEditor
    Set CvsEditor = CreateObject("CxEditors.CxCvsEditor")
    CvsEditor.Connect("[5410]CYGDEMO.DBS")

End Sub

Disconnect

The Disconnect method disconnects from the connected service.

Syntax

Disconnect() As Integer

Remarks

The Disconnect method returns 0 if successful and a non-zero value if the disconnect failed.

Example

The following example disconnects the Client object from the connected service, and pops a message box if it is unsuccessful:

1
2
3
4
5
6
7
8
9
10
11
Sub Svc.Disconnect()
 
    <SvcClient>.Disconnect()
    MsgBox "Service has disconnected."
    
    If <SvcClient>.Disconnect <> 0 
    Then
        MsgBox "Failed to disconnect."
    End If

End Sub

Edit

The Edit method launches an editor dialog box initialized with the information in the specified record.

Syntax

Edit(PointTag As String) As Integer

Parameters

Remarks

This method returns one of the following values:

Example

The following example launches a dialog box for record "CYGDEMO.UIS.0000012345".

1
2
3
4
5
6
7
8
Sub

    Dim iRet
    iRet= CvsEditor.Edit("CYGDEMO.UIS.0000012345")
    MsgBox iRet


End Sub

Properties

The Properties method launches a DBS Properties dialog box for the specified point tag.

Syntax

Properties(ByVal PointTag As String) As Integer

Parameters

Remarks

This method returns one of the following values:

Example

The following example launches the specified editor dialog box for the record "0000012345":

1
2
3
4
5
6
7
Sub

    Dim iRet
    iRet = CvsEditor.Properties("0000012345", True)
    MsgBox iRet

End Sub